home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
DELPHI32
/
SYS_TOOL
/
MULTI020
/
MULTI020.ZIP
/
MTEST2.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-09-08
|
453b
|
28 lines
uses multi, mpipes;
var
t : tpipe;
s : string;
procedure gettask(var m); far;
var s : string;
t : tpipe absolute m;
begin
t.NewOutputTask;
s[0] := t.get;
t.GetBin(s[1],length(s));
writeln('GetTask received: ',s);
t.NoMoreOutput;
Terminate;
end;
begin
s := 'Hallo, Welt';
t.Init(10);
Fork(GetTask,4096,t,'GetTask');
t.NewOutputTask;
t.PutBin(s,length(s)+1);
t.NoMoreOutput;
Terminate;
end.